home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
ML_VECTB.ZIP
/
UTILS
/
MKFORM1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-03-06
|
2KB
|
117 lines
uses dosio;
var
coord:array[0..60] of record x,y,z:integer end;
max:word;
f:file;
Procedure BuildForm;
var a:word;
begin
max:=0;
for a:=0 to 4 do begin
with coord[max] do begin
x:=a*20; y:=0; z:=0;
end;
inc(max);
end;
for a:=1 to 4 do begin
with coord[max] do begin
x:=4*20; y:=0; z:=a*20;
end;
inc(max);
end;
for a:=3 downto 0 do begin
with coord[max] do begin
x:=a*20; y:=0; z:=4*20;
end;
inc(max);
end;
for a:=3 downto 1 do begin
with coord[max] do begin
x:=0; y:=0; z:=a*20;
end;
inc(max);
end;
for a:=1 to 4 do begin
with coord[max] do begin
x:=0; y:=a*20; z:=0;
end;
inc(max);
end;
for a:=1 to 4 do begin
with coord[max] do begin
x:=a*20; y:=4*20; z:=0;
end;
inc(max);
end;
for a:=1 to 4 do begin
with coord[max] do begin
x:=4*20; y:=4*20; z:=a*20;
end;
inc(max);
end;
for a:=3 downto 0 do begin
with coord[max] do begin
x:=a*20; y:=4*20; z:=4*20;
end;
inc(max);
end;
for a:=3 downto 1 do begin
with coord[max] do begin
x:=0; y:=4*20; z:=a*20;
end;
inc(max);
end;
for a:=3 downto 1 do begin
with coord[max] do begin
x:=4*20; y:=a*20; z:=0;
end;
inc(max);
end;
for a:=3 downto 1 do begin
with coord[max] do begin
x:=4*20; y:=a*20; z:=4*20;
end;
inc(max);
end;
for a:=3 downto 1 do begin
with coord[max] do begin
x:=0; y:=a*20; z:=4*20;
end;
inc(max);
end;
for a:=1 to 1 do begin
with coord[max] do begin
x:=40; y:=40; z:=0;
end;
inc(max);
end;
for a:=1 to 1 do begin
with coord[max] do begin
x:=80; y:=40; z:=40;
end;
inc(max);
end;
for a:=1 to 1 do begin
with coord[max] do begin
x:=40; y:=40; z:=80;
end;
inc(max);
end;
for a:=1 to 1 do begin
with coord[max] do begin
x:=0; y:=40; z:=40;
end;
inc(max);
end;
end;
begin
Writeln('Making figure ...');
openforoutput(f,'_cube.bal','');
BuildForm;
blockwrite(f,max,2); { Nr of points in the 3D form }
blockwrite(f,coord,max*3*2);
closefile(f,'');
end.